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NOTICIAS 



PROGRAMAS VIC-20 

Como consecuencia de múltiples llamadas telefónicas 
recibidas en MICROELECTRÓNICA Y CONTROL 
preguntando por los programas del VIC damos en este número 
una lista de ellos junto con algunos datos de interés 



Ref. Programa 



P.V.P. 
Ptas. 



Ref. 



Programa 



P.V.P. 
Ptas. 



Ref. Programa 



P.V.P. 
Ptas. 



Libro curso de introducción al Basic 




C-145D 


Parte I 


2.500 




Con dos cintas o un disco. 




C-201 


Libro curso de introducción al Basic 






Parte II 


2.500 


C-202 


Con dos cintas o un disco. 




D-1001 Agenda 




C-203 


5.000 


Necesita ampliación de 8K. 




C-204 


D-1002 QSL 


3.000 


Necesita ampliación de 8K. 




C-205 


D-1003 Test Demo 


3.000 


D-1004 Assembler 


5.000 


C-206 


Necesita ampliación de 3 K. 





CINTAS PARA CASSETTE 

C-125 Hangmath 

No necesita ampliación. 
C-128 Programación lineal 

No necesita ampliación. 
C-129 Matrices 

No necesita ampliación. 
C-130 Caja 

Necesita ampliación de 16K 
C-131 Regresiones I 

No necesita ampliación. 
C-132 Regresiones II 

No necesita ampliación. 
C-133 Estadística I 

No necesita ampliación. 
C-134 Estadística II 

No necesita ampliación. 
C-135 Sistemas 

No necesita ampliación. 
C-136 Dieta 

Necesita ampliación de 8K. 
C-137 Integración 

No necesita ampliación. 
C-139 Vicalc 

No necesita ampliación. 
C-140 Skymath 

Necesita ampliación de 3K. 
C-141 Space División 

Necesita ampliación de 3K. 
C-142A Interface y programa CW 

No necesita ampliación. 
C-142B Programa RTTY 

No necesita ampliación. 
C-143 English Language 

Necesita ampliación de 8K. 
C-144 Quiz Master 

Necesita ampliación de 8K. 
C-145 Mastermind 

Necesita ampliación de 8K. 

Además para esta cassette 
se están preparando los si- 
guientes temas: 

C-145A Gastronomía 
C-145B Música 
C-145C Cinematografía 



C-207 



1.500 




5nn 

JUU 


C-208 


500 


C-209 


1.500 


C-210 


500 


C-211 


500 


C-212 


500 


C-213 


500 


C-215 


500 




1.500 


JUEG 




1904 


500 




1.500 


1906 


1.500 






1907 


1.500 






1908 


25.000 






1901 


2.500 




2.000 


1909 


2.000 


PROG 


3.000 


Z0001 




V0501 


1.500 


Z0601 




1.500 




1.500 





Deportes 

Etc.. 

Codemaker 

No necesita ampliación. 
Wall Street 

No necesita ampliación. 

Simple Simón 

No necesita ampliación. 

Damas 

No necesita ampliación. 
Alien Blitz 

No necesita ampliación. 
Kosmic Kamikaze 
Necesita ampliación de 3 
u 8K, dado que hay dos 
versiones del juego. 
Star Wars 

No necesita ampliación de 

memoria. 

Amok 

No necesita ampliación. 
The Alien 

Necesita ampliación de 3K. 

Invader Fall 

No necesita ampliación. 

A-MAZ-ING 

Necesita ampliación de 3K. 
Math-Hurdler, Monster 
Maze 

No necesita ampliación. 
Golf 

Necesita ampliación de 3K. 
VIC GAMES II 

No necesita ampliación. 



JUEGOS EN CARTUCHO 



Super Slot 

Se juega por teclado o con 

Joystick. 

Super Allien 

Se juega por teclado o con 

Joystick. 

Júpiter Lander 

Se juega por teclado. 

Draw Poker 

Se juega por teclado. 



Se juega por teclado o con 

Joystick. 

Road race 

Se juega por teclado. 

AMAS PROFESIONALES 

Contabilidad S/V-20 
Stock-VIC 

Control películas para 

Video-Clubs 

VIC/Entrapunt 

Nota: Para más detalles so- 
bre estos programas con- 
sultar. 



1.500 
1.500 
1.500 
1.500 
1.500 
1.500 
1.500 

1.500 

1.500 
1.500 
1.500 
1.500 

1.500 
1.500 
1.500 

4.500 

4.500 

4.500 
4.500 
4.500 

4.500 



NOVEDADES ENER0 1983 

PROGRAMAS EN CINTA: 



C-146 


Matemáticas 1 (nivel BUP) 
Necesita ampliación de 8 
ó 16K. 


2.000 


C-216 


Escape 

No necesita ampliación. 


1.500 


C-217 


Biocomp 

Necesita ampliación de 3K. 


2.000 


C-218 


Cubo VIC 

No necesita ampliación. 


1.500 


C-219 


Type a tune 

No necesita ampliación. 


2.000 


PROGRAMAS EN CARTUCHO: 




1911 


The sky is failling 

Es necesario utilizar Paddle. 


4.500 


1902 


Star battle 

Se juega con teclado o con 
Joystick. 


4.500 


1919 


Sargon II chess 

Se juega con teclado o con 
Joystick. 


4.500 


1924 


Omega race 

Se juega con Joystick. 


4.500 



C-400 
C-401 
C-402 
1912 

1909 



VIC FORTH 
VIC STAT 
VIC GRAPH 



consultar 
consultar 
consultar 

4.500 



Mole attack 

Sólo para teclado. 

Radar ratrace 4.500 
Se juega con teclado o con 
Joystick. 

WORDCRAFT-VIC 42.500 
(compatible series CBM8000 
y CBM 4000) 

VIC SCREEN MASTER 10.000 



C-403 
C-404 

PROGRAMAS EN DISCO 



D-1005 English Language 2.500 
Necesita ampliación de 8K. 

D-1006 Quiz master 2.500 
Necesita ampliación de 8K. 

D-1007 Matemáticas I 2.500 
(nivel de BUP) 
Necesita ampliación de 8K. 

D-2000 VIC WRITER 13.000 
Necesita ampliación de 8K. 

D-2001 SIMPLICALC 13.000 
Necesita ampliación de 8K. 

D-2002 VIC FILE 13.000 
Necesita ampliación de 8K. 
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EDITORIAL 



la tercera solución 



¿Jemos editado, recientemente, las 
Carpetas de Programas Profesionales 
para equipos COMMODORE, dos de 
las cuales ilustran la portada de este 
número. Aunque orientadas a servir 
como herramientas de trabajo a nues- 
tros distribuidores, están pensadas 
para facilitar la consulta y elección de 
las aplicaciones necesarias para cada 
usuario en particular. 

Después de más de 4.000 instalacio- 
nes en España, nuestra experiencia 
nos dice que la mayoría de usuarios lo 
que realmente buscan no es un "orde- 
nador" sino una solución, y ésta consta 
de tres partes insustituibles: el equipo, 
los programas, y la asistencia. 

En cuanto al equipo, poco vamos a 
extendernos ya que es suficientemente 
conocido por su facilidad de manejo, su 
solidez y la baja tasa de fallos produci- 
dos. Sólo resaltar la continuidad y pro- 
gresión mantenidas por COMMODO- 
RE, desde su famoso PET, lo que le 
coloca en el número uno en ventas, no 
sólo en nuestro país sino también en el 
Mundo. En este momento posee la 



más extensa gama de equipos con los 
que podemos configurar sistemas con 
capacidades desde 32 K hasta 96 
Kbytes en RAM y desde 170 K hasta 
9 Mbytes en disco. 

Los otros dos puntos, programas, y 
asistencia, van muy relacionados con 
la figura del distribuidor COMMODO- 
RE, persona que contacta, atiende, re- 
para, programa, instala, etc.; a través 
de sus distintos departamentos. Gra- 
cias a que TODOS nuestros distribui- 
dores disponen de departamentos téc- 
nicos de programación y mantenimien- 
to, podemos dar el mejor y más reparti- 
do servicio. 

En el entorno de la informática las 
distintas marcas plantean dos líneas 
bien distintas: las que opinan que el 
cliente debe adaptarse a los programas 
estándar y las que creen que para cada 
cliente es necesario realizar la aplica- 
ción a medida (llaves en mano). 

Las primeras acostumbran a tener 4 
o 5 programas, solamente, cuya cuali- 
dad de ser estándar quizá no sea el 
momento de evaluar. Mientras que las 



segundas invierten en cada instalación 
3 ó 4 meses, en el mejor de los casos, 
en la realización de los paquetes de 
programas. 

Debido a la preparación y organiza- 
ción del equipo técnico de nuestra Red 
de Distribuidores, COMMODORE pue- 
de afrontar cualquiera de ellas y, con la 
presentación de las Carpetas de Pro- 
gramas, además quiere aportar una 
tercera solución, suma de las ventajas 
de las anteriores y con los menos de- 
fectos posibles: eliminar la necesidad 
de que el cliente se adapte al programa 
y reducir el tiempo de espera para pro- 
gramas "particulares" de nuestra biblio- 
teca, a una pura puesta en marcha. 

A este fin se han creado las Carpetas 
de Programas para dar a conocer qué 
programas existen, que ya funcionen y 
qué procesos detallados efectúan, 
siendo una recopilación de la extensa 
biblioteca de programas, tanto realiza- 
dos por Microelectrónica y Control 
S.A., como por nuestros distintos distri- 
buidores, en y para España. 

Están a disposición de cualquier 
usuario de sistemas de gestión que 
quiera ampliar el rendimiento de su 
equipo o para aquellos que su primer 
contacto con COMMODORE ha sido el 
VIC-20 y necesitan "algo" de más en- 
vergadura para su pequeño negocio. 

(Departamento de Difusión 
Microelectrónica y Control S.A.) 



PROGRAMAS PROFESIONALES (Tomo I) 

Ref. Título 

DMA-401 Base de datos 

DMA-402 Contabilidad 

DMC-413 Wordcraft 

DMC-461 VisiCalc 

DMA-467 Assembler 

DMA-801 Base de Datos 

DMA-802 Contabilidad 

DMA-803 Gestión Comercial 

DMA-804 Paso de Gestión Comercial a Contabilidad 

DMA-807 Etiquetas 

DDA-810 Nóminas 

DMC-813 Wordcraft 

DMC-815 Contabilidad 4N 

PDS-817 Renta-8X 

DDS-818 Fincas. H 

DDC-819 SADIC 

DMC-861 VisiCalc 

DMA-867 Assembler 

DMC-868 Master 

EMC-871 Edex 

DMC-877 Protector 

DIC-8302 Dirección 

DIC-8303 Facturación de Industrias Cárnicas 

DIC-8306 Control de Socios 

DIC-8309 Producción Industrial 



PROGRAMAS PROFESIONALES (Tomo II) 

Ref. Título 

DDC-403 Gestión Comercial 

DDA-409 Colegios 

DMC-416 Gabinete Odontológico 

DDC-476 Petspeed 

DDA-809 Colegios 

HMC-872 Placa de Alta Resolución 

DDC-876 Petspeed 

DIA-4301 Compra-venta de vehículos 

DIA-4302 Facturación con báscula 

DIA-8301 Consignatarios de pescado 

DIC-8304 Componentes 

DIA-8305 Stock zapatería 

DIA-8307 Boutiques 

DIS-8308 Hostelería 

DIC-831 Agentes de quinielas 

DIC-8311 Agenda 

DIA-8312 Medios de Publicidad 

DIC-831 3 Macro-Stocks 

DIA-831 4 Control de Producción y Personal 

DIC-831 5 Empresas de Autoventas 

DIC-831 6 Facturación Empresas de Limpieza 

DIC-831 7 Rentas 

DIC-831 8 Administración Fincas 

DIA-831 9 Facturación con báscula 

DIC-8320 Colegios Profesionales 
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VENTANA CBM 



a las 

profundidades 
la zona 



E I tema de este mes trata de cómo 
trabaja el sistema con los programas. 
Cuando escribimos una instrucción 



por JOAN CARLES SAMARANCH 

cómo la «interpreta» el BASIC. Para 
entender todo lo que vamos a comen- 
tar nos referiremos a la tabla 1. 



ABREVIACIONES 

Lo de las abreviaciones es poco 
conocido pero muy práctico para po- 
der incrementar la velocidad de pro- 
gramación y para poder construir lí- 
neas de programa de más de 80 co- 
lumnas (referente al listado). 

Por ejemplo, la instrucción PRINT 
se puede abreviar escribiendo «?». 
Escribamos la línea: 10 ? y listemos 
el programa. Veremos 10 PRINT. 

Para el resto de instrucciones indi- 
camos, en la tabla 1, en minúscula el 
carácter a escribir en mayúscula ( + 
SHIFT) que, en el caso de trabajar en 
caja alta (mayúsculas/gráficos), apa- 
recerá el gráfico correspondiente en 
pantalla. En caja baja (minúsculas/ 
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Token 


Instrucción 


Abreviación 


Decimal 


Hexadecimal 


Instrucción 


Abreviación 


Decimal 


Hexadecimal 


END 
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1 OQ 
1 ¿O 


OU 
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Afi 
Mu 


FOR 


Fo 


1 OQ 
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oí 
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1 ntIN 
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lOí 


A7 


NEXT 


Ne 
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on 

o¿ 




NO 


1 OO 


Mu 


DATA 


Da 


1 O 1 


OQ 

DO 


o 1 tr 


b l e 


i oy 


AQ 


1NPUT# 


In 


1 T) 


O A 

o4 


i 

+ 




1 IU 


A A 


INPI IT 


INn 


1 


00 






171 
1/1 


AR 

MD 


DIM 


Di 


1 ">A 


oc 
OD 


* 




1 70 

1 l¿ 




READ 


Re 


135 


87 


/ 




173 


AD 


LET 


Le 


1 *3fi 
1 OÜ 


oo 
00 






1 7 A 
1/4 


AF 


GOTO 


Go 


137 


89 


AND 


An 


175 


AF 


RUN 


Ru 


138 


8A 


OR 


Or 


176 


BO 


IF 


If 


139 


8B 


> 




177 


B1 


RESTORE 


REs 


140 


8C 






178 


B2 


GOSUB 


GOs 


141 


8D 


< 




179 


B3 


RETURN 


REt 


142 


8E 


SGN 


Sg 


180 


B4 


REM 


REm 


143 


8F 


1NT 


INt 


181 


B5 


STOP 


St 


144 


90 


ABS 


Ab 


182 


B6 


ON 


On 


145 


91 


USR 


Us 


183 


B7 


WAIT 


Wa 


146 


92 


FRE 


Fr 


184 


B8 


LOAD 


Lo 


147 


93 


POS 


POs 


185 


B9 


SAVE 


Sa 


148 


94 


SOR 


Sq 


186 


BA 


VERIFY 


Ve 


149 


95 


RND 


Rn 


187 


BB 


DEF 


De 


150 


96 


LOG 


LOg 


188 


BC 


POKE 


Po 


151 


97 


EXP 


Ex 


189 


BD 


PRINT # 


Pr 


152 


98 


eos 


COs 


190 


BE 


PRINT 


? 


153 


99 


SIN 


Si 


191 


BF 


CONT 


Co 


154 


9A 


TAN 


TAn 


192 


CO 


LIST 


Li 
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9B 


ATN 


At 
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CLR 


Cl 
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PEEK 


Pe 
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CMD 


Cm 
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Le 


C3 


SYS 


Sy 
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9F 


VAL 


Va 
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CLo 
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AO 
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As 
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C6 


GET 


Ge 
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Al 
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Ch 
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C7 
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NEw 
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A2 


LEFTS 


LEf 
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C8 


TAB( 


Ta 
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A3 


RIGHTS 


Ri 


201 


C9 


TO 


To 


164 


A4 


MIDS 


Mi 


202 


CA 


FN 


Fn 


165 


A5 
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mayúsculas), el texto a escribir es 
precisamente al revés de lo indicado 
en la tabla 1, cambiando las mayúscu- 
las por minúsculas y viceversa. 

«TOKEN'S» 

En el ejemplo anterior el sistema 
no guarda las letras: P, R, I, N y T, 
correspondientes a la instrucción si 
no que guarda un solo byte, llamado 
«token», que codifica el tipo de ins- 
trucción. En la tabla 1 vemos el núme- 
ro que corresponde a cada instruc- 
ción. Debemos resaltar que existen a 
partir del valor 128 ($80), o sea el bit 
2^7 a uno. 

ESTRUCTURA INTERNA 

El «programa» de ejemplo es: 
.j q pLr^/j ****** *#** 

Después de crear esta línea vamos 
al monitor: SYS1024, y visualizamos 
el principio de la zona de programas 
con la instrucción: 

.M 0400 0410 

apareciendo lo siguiente: 

0400 00 1 1 04 0A 00 8F 2A 2A 
0408 2A 2A 2A 2A 2A 2A 2A 2A 
041 00 00 00 AA AA AA AA AA 

Vamos a analizar estos valores. En 
la posición 1024 (§0400 en hexadeci- 
mal) tenemos el cero inicial; en 1025 
y 1026 tenemos la dirección donde 
empieza la siguiente linea de progra- 
ma; en el formato peso bajo/peso al- 
to, en este caso $0411; en 1027 y 
1028, con el mismo formato, el núme- 
ro de línea de programa que le co- 
rresponde, $00A0 igual a 10 en deci- 
mal; en 1029 está el «token» corres- 
pondiente a la instrucción REM que 
es $8F; de 1030 a 1039 los diez aste- 
riscos, $2A y, por último, un cero in- 
dicando el final de línea. Por ser un 
programa de una sola línea, los dos 
bytes siguientes, que corresponde- 
rían a la dirección de inicio de la si- 
guiente línea, son cero, indicando fin 
de programa (el siguiente byte ya co- 
rrespondería a la zona de variables). 

GENERALIZACIÓN 

Lo que hemos visto con un ejemplo 
sencillo puede extrapolarse a cual- 
quien programa. En la figura 1 vemos 
un gráfico, general, de la estructura 
de un programa. 

El significado de las abreviaciones 



Start1025 



1024 




1 


1 


Link 
address 


Line 
No. 


Text 







Link 


Line 


Text 




address 


No. 






1 Link 


Line 


Text 





1 address 


No. 







END 



Fig. 1 



allí expuestas son: LINK AD, direc- 
ción donde empieza la siguiente línea 
de programa; LINE NO, número de lí- 
nea BASIC asignada, y TEXT, instruc- 
ciones asociadas a esta línea. 



En la última línea, lo que corres- 
pondería al LINK AD está a cero para 
indicar el fin de programa, fácilmente 
reconocible por los tres ceros que 
aparecen. 



TRANSFERENCIA DE PROGRAMAS ENTRE EL VIC Y 
LOS ORDENADORES CBM 4000 Y 8000 

u; 

de la que tanto se habta últimamente en Madrid, sino de la posibilidad de que una máquina 

: ' ' / : ! : V ; : ■ VV / : V ■ ■ ; " : : : v 

equipos y ■ través de disco solamente entre el VIC v la serie 4000. Aparte debe vigilarse la 
ejecución de un programa en una máquina y escrito en otra pues es muy posible que los 
POKEs no funcionen de la misma iomia. De iodas maneras con los métodos que damos a 
continuación se pueden listar programas de VIC en otros equipos. El problema plincipal 

: ■ ■ V V ' > ; : V V VViVV: : ' V V ' : : ; V V A - i A V VV : ' : ■ ' V ■ ' : : ■ ■ ■ ■ ^ : ' 

S.SVCV •;-rf.,¿ : v-,'. í ¡s- iw?. í.vr:j-.ii-- ! --s . s! ■■• Vi;-'; rraí-sw; ~<- f Va; ■"-.?-;:■;:;»;; 

4000 y 8000. En el caso de grabar el programa con el cartucho de 3K en el VIC los pro- 
gramas enttan sin ningún problema en los equipos CBM. Sin embaigo, en el caso de haberlo 
VIC sin expansión podemos hacer lo siguiente: 1J CARGAR EL PRC'GRA- 



: : VVv ■ . < : . V/VV :; V - 
. ': '- i ■-. V/V V V' ■ : - ■ : 
¡RETURN); 4) ELIMINAR LA LINEA 10 IPUL: 



V 



V5 'V 

Y 



"VVVÁ 



- ' :.!;.-.ii.-,:C"Í 



desde un VIC con más de 8K, los pasos 3 y 

- v VV V ,,;V ¿VVVVV . 



/■''"'.■.'..:'.'.'.;':">"v.-.;'"-'' ; '.;;".'— 



5 deben ser: 1 ] LO MISMO , 2| LO M1SM 1 

'Vvv /; v v 'i. 

: ; : VíVvvvbv^ 

de VIC se ha grabado el programa. En el método que damos a continuación se resuelve 
este problema. Ajiles de cargar el programa del VIC en el CBM pulsar: NEW ¡RLTURNI. 

i; i :■";;.- 'V- V;. 

V;;;;:^ v ;:V~^ 

; ; ; : ; vV;:: - v . ;v ;;;V;;í : ; ;V; : ^ 

Si el programa sigue sin aparecer pulsar: POKE 41,16 LIST (RETL'RN) 
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tratamiento 




directo 
en el VIC-20 



por PERE CARBÓ 



















^^^^^^^^^^^^ 





#m pesar de que tal vez el VIC-20 sea 
un ordenador personal enfocado de 
cara a aplicaciones recreativas, de 
cálculos técnicos o uso doméstico, et- 
cétera, y en la mayoría de estos tipos 
de aplicaciones no vamos a necesitar 
de la ayuda de ficheros que soporten 
nuestra información, y menos aún de 
ficheros de acceso directo, que son 
a los que me voy a referir, me voy a 
permitir en las siguientes líneas reve- 
lar algunas experiencias al respecto, 
deseando que a algún usuario que dis- 
ponga de la unidad de disquette y de- 
see trabajar con este tipo de ficheros, 
le puedan ser útiles. 

Como referencia, el capítulo 7 del 
MANUAL DE LA UNIDAD DE DISCO 
en sus páginas 53 a la 59, trata de 
explicar el uso de estas técnicas. De 
allí están tomadas las subrutinas que 
más tarde vamos a ver y ha servido de 
base, para elaborar este trabajo, que 
no pretende ser más que una simple 
documentación anexa que amplíe, en 
cierto modo, lo allí expuesto, a fin de 
optimizar al máximo esta «herramien- 
ta» que nos ofrece el sis 
tivo de disco del VIC-20. 



PREMISAS - 1 

El uso de estos ficheros que «a prio- 
ri» puede parecer algo engorroso, es, 
sin embargo, totalmente eficaz si se 
les da el tratamiento adecuado. Codi- 
ficando las instrucciones oportunas 
que a continuación veremos y ayudán- 
donos de una pequeña subrutina de 
cálculo, obtendremos una dirección fí- 
sica de disco (Pista y Sector) donde 
registraremos la información. Más tar- 
de, para acceder a ella, tan sólo ten- 
dremos que recurrir a la misma sub- 
rutina de cálculo. 

En primer lugar, nos interesa reser- 



varnos el espacio en disco y crear el 
fichero. Deberá preverse el volumen 
del fichero teniendo en cuenta varios 
puntos: 

1° Por el tratamiento del fichero, ca- 
da vez que «escribamos» en él, lo 
vamos a hacer en un sector dife- 
rente, por lo que ganaremos en 
cuanto a espacio en la medida en 
que ocupemos el número máximo 
posible de los 250 bytes disponi- 
bles que contiene cada sector. Se- 
gún el uso del fichero que se desee 
hacer, puede ser una solución ópti- 
ma recopilar varios registros lógi- 
cos en un solo registro físico. 

2° Aunque se trate de un fichero en 
el que no vayamos a hacer la carga 
inicial de los datos de una sola vez 
sino que vamos a hacerlo paulati- 
namente, debemos crearlo igual- 
mente en función del volumen to- 
tal previsto para así reservarnos 
los sectores correspondientes don- 
de más tarde irá la información. De 
no ser así, al acceder a una direc- 
ción del disco fuera del espacio 
que previamente hemos reservado, 
podríamos «machacar» lo que hu- 
biera en esa dirección (programas, 
otros ficheros), lo cual nos daría 
e un problema. 



PREMISAS - 2 

Por otra parte, vamos a necesitar 
paralelamente al fichero directo, un 
segundo fichero que nos sirva de índi- 
ce del primero. Este fichero índice se- 
rá de organización secuencial y podrá 
ser diferente en función de como vaya- 
mos a tratar el de acceso directo. 

Si a pesar de tratarse de un fichero 
de acceso directo, la carga Inicial de 



éste la vamos a hacer de un modo 
secuencial, bastará con que el fichero 
índice contenga un solo registro con 
el número correspondiente al último 
registro grabado en el fichero directo. 
De este modo, cuando queramos leer 
de él, únicamente deberemos compro- 
bar que no se intenta acceder a un 
registro mayor que el último grabado 
y, del mismo modo, cuando queramos 
grabar más datos, nos servirá de pun- 
tero para saber cuál debe ser el si- 
guiente número de registro. 

Un pequeño ejemplo de esta utiliza- 
ción, podría ser un fichero maestro de 
socios, en el cual los vamos a ir regis- 
trando secuencialmente según se pro- 
duzca el alta. Vamos a hacer coincidir 
el número de asociado con el número 
del registro que ocupan en el fichero 
de forma que el socio n.° 1 ocupará el 
primer registro, el 2° socio el segun- 
do registro y así sucesivamente. La 
creación de este fichero sería secuen- 
cial aunque anteriormente hayamos 
creado el fichero en función de las pre- 
visiones, para reservarnos el espacio. 
Así, pues, en el fichero índice tendre- 
mos el número del último asociado. 
Cuando queramos dar una nueva alta, 
el socio tendrá el número que nos dé 
el fichero índice + 1. Sin embargo, el 
tratamiento posterior del fichero, va a 
ser directo. A la hora de hacer una 
consulta o una modificación nos va- 
mos a referir en concreto al socio 
(o registro) 28, 113, 4, etc., y la única 
precaución que deberemos tener es 
comprobar que el número de asociado 
al que vamos a acceder no sea mayor 
que el índice. 



PREMISAS - 3 

Sin embargo, si la carga inicial tam- 
bién va a ser aleatoria, entonces este 



V 



J 
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procedimiento no es válido. Una ma- 
nera de establecer un índice, sería 
creando un fichero secuencia! con tan- 
tos registros de un solo byte como 
registros vaya a tener el fichero direc- 
to. Podemos inicializar el fichero ín- 
dice con todos los registros a «0» y 
cada vez que grabemos un registro en 
el fichero directo mover un «1» a su 
registro correspondiente en el fichero 
índice. A la hora de acceder a un re- 
gistro, bastará acceder primero al ín- 
dice y conocer su estado para saber 
si verdaderamente existe o no. 

Para optimizar, en cuanto a tiempo, 
es aconsejable haber cargado previa- 
mente los registros del fichero índice 
en una tabla de memoria sobre la cual 
podemos trabajar durante la ejecución 
del programa y, al final, grabarla en 
disco si es que ha sufrido modifica- 
ciones. Con ello ganaremos tiempo y 
ahorraremos accesos a discos. 

En las páginas 55/59 del «Manual 
Floppy» hay un programa de ejem- 
plos en el que se emplea este proce- 
dimiento. 



TRATAMIENTO - 1 

Para trabajar con fichero de acceso 
directo, necesitamos hacerlo por me- 
dio de un área intermedia a la cual le 
damos el tratamiento de fichero. Es 
decir si pretendemos grabar informa- 
ción en un fichero, primero la vamos 
a llevar a esa área intermedia y, desde 
allí, la vamos a grabar definitivamente 
en disco. Y exactamente igual para 
leerla: del disco la movemos al área 
intermedia y de allí la recogemos pa- 
ra tratarla. 

El esquema de la fig. 1 pretende 
aclarar un poco el contenido de las 
líneas anteriores. 

Pues bien, sentados ya frente a 
nuestro «Micro», el primer paso será 
abrir el fichero de trabajo y el área 
intermedia que, como hemos dicho, le 
damos tratamiento de fichero. Debe- 
remos abrir también el fichero índice 

10 OPEN 5,8, 15 

20 OPEN 4,8,3, "#" 

30 OPEN 2, 8, 2, "0:ÍNDICE, S, R" 



TRATAMIENTO - 2 

Donde: 

5-4-2 = NÚMERO LÓ( 
FICHERO 



8 = TIPO DE PERIFÉRICO (8 = 

FLOPPY, 1 = CASSETTE) 
15-3-2 = NÚMERO DE CANAL 
= PRIMER DRIVE FLOPPY 

(Si existiera un 2.° sería 1 ) 
ÍNDICE = NOMBRE DE FICHERO 
S = TRATAMIENTO 

SECUENCIAL 
R - READ (Tratamiento de 

lectura, W = WRITE) 

Este paso sería común para cual- 
quier tratamiento que le fuéramos a 
dar al fichero pero, a partir de ahora, 



TRATAMIENTO - 3 

3 = Número de can; 
intermedia 

— Número del «Floppy» 
(disco flexible) 

NP . Variable recogida de la 
subrutina del cálculo de 
dirección física que especifica 
el NÚMERO DE PISTA 

NS = Variable recogida de la 
subrutina de cálculo de 
dirección física que especifica 
el NÚMERO DE SECTOR 




va a variar en función de que quera- 
mos acceder a él para leer o simple- 
mente accedamos para grabar datos. 
En cuanto al fichero índice, hemos vis- 
to cómo se abre, pero no vamos a se- 
guir con su tratamiento. Éste sería 
totalmente secuencial y dependiendo, 
como hemos dicho, del fichero directo. 

Acceso de lectura 

En primer lugar, vamos a tener que 
utilizar la subrutina de cálculo que nos 
dirá la pista y el sector donde está el 
registro que estamos buscando (ver 
subrutina de dirección física), y con 
los datos que nos devuelva, nos va- 
mos a la información y la moveremos 
al área intermedia para, desde allí, 
recogerla y posteriormente tratarla. 

40PRINT# 5, "B-R:"3;0;NP;NS 
Donde: 

5 — Número lógico del fichero 
de datos 
"B-R:" = Comando de sistema 
operativo que significa 
Buffer Read (lectura 
intermedia) 



El siguiente paso es mover el pun- 
tero intermedio que controla la trans- 
misión de datos. 



PRINT#5,"B-P:"3;1 



Donde: 



5 = Número lógico del fichero 
de datos 

"B-P:" = Comando de sistema 
operativo que significa 
«Buffer Pointer» 
(puntero intermedio) 

3 = Número de canal del área 
intermedia 

1 — Posición del puntero 

Y, por último, recogemos la informa- 
ción del área intermedia, de la si- 
guiente forma: 



50 INPUT # 4,A$,B,C 



Donde: 



4 = Número lógico del área 
intermedia 
i,C = Variables 

(pasa a la pág. siguiente) 
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TRATAMIENTO - 4 

Acceso de escritura 

En el tratamiento de escritura, varía 
el orden de las instrucciones. En pri- 
mer lugar deberemos mover el pun- 
tero intermedio. Para dar una idea de 
lo que se pretende con esta instruc- 
ción, me atrevería a compararla con 
el dueño de una casa que da una fies- 
ta, cuando presenta a dos de sus invi- 
tados (el fichero de trabajo y el área 
intermedia). 

40 PRINT# 5"B-P:",3;1 

Donde: 

Los parámetros son los mismos 
que cuando hacemos el acceso 
de lectura 

A continuación, vamos a ITevar al 
área intermedia la información que 
queremos grabar. 

50PRINT# 4,A$;B;C;CHRS(13) 



4 = Número lógico del área 
intermedia 
AS,B,C = Variables 
CHRS(13) = Marca del «Carriage 

return» (Fin de registro) 

Y, por último, registraremos la in- 
formación definitivamente en el fiche- 
ro, pero antes deberemos pasar por 
la subrutina de cálculo de dirección 
para que en función del número de 
registro, le asigne un lugar en el fiche- 
ro a nuestra información. 



60 PRINT # 5, "B-W:" 3;0;NP;NS 
Donde: 

Los parámetros son los mismos 
que en la línea 40 del acceso de 
lectura, con la salvedad de que 



(viene de la pág. anterior) 



el comando "B-R:" («Buffer 
Read»), es sustituido por "B-W:" 
(«Buffer Write») (escritura 
intermedia) 



SUBRUTINA DE CÁLCULO 
DE DIRECCIÓN FISICA 

A continuación, vamos a ver la sub- 
rutina que nos calcula la dirección 
física del registro en el disco. 

El único parámetro que le damos de 
entrada, es el número de registro, y 
la subrutina nos devuelve dos varia- 
bles (NP, número de pista) y (NS, nú- 
mero de sector), situación física que 
le corresponde ocupar en el disco al 
determinado registro. La variable NR 
es la que contiene el número de re- 
gistro. 



100 



120 



120 



130 

140 
150 



IF NR 358 THEN F1 =0:F2 = 22: 

F3 = 1:GOTO 140 

IF NR 357 AND NR 471 THEN 

F1 =357: F2 = 20: F3 = 19: GOTO 

140 

IF NR 471 AND NR 580 THEN 
F1-471: F2 = 19: F3 = 25: GOTO 
140 

IFNR 580 THEN F1=580: F2=18: 
F3 = 31 

NP= INT(((NR-F1)-1)/(F2-1)) F3 
NS= NR-F1-(NP-F3) F2 (NP-F3-1) 



Los registros deberán ir siempre 
numerados desde 1 hasta 664 (capaci- 
dad máxima del disquette); y el si- 
guiente cuadro, .extraído del manual 
del floppy, muestra la distribución ge- 
neral de éstos en el mismo: 



TRATAMIENTO DE 

El sistema operativo de disco del 
VIC-20 nos permite el tratamiento de 
errores en los accesos a disco. Me- 
diante la subrutina que veremos a con- 
tinuación podemos tratar de controlar 
los errores que se puedan dar durante 
la ejecución de un programa, en cuan- 
to a lo que accesos a ficheros se re- 
fiere, con lo que de alguna manera, 
aunque el error ya es inevitable, pode- 
mos evitar esas detenciones bruscas 
del programa que nos «desmontan» la 
pantalla y nos aparece esa famosa 
palabra ya familiar para todo aquel 
que ha programado más de dos días 
de «ERROR». 



INPUT # 15, NE,MES,PE,SE 
IF NE = THEN RETURN 
PRINT «ERROR DE DISCO »; 
NE;MES;PE;SE 

lNPUT"CONTINUO "; Y$:IF YS = 
«SI» THEN RETURN 



200 
210 
220 

230 



Donde: 

15 = Número de canal 
EN = Número de error 

(ver manual del floppy) 
MES = Mensaje o descripción 

del error 
PE = Pista donde se ha producido 

el error 

SE = Sector donde se ha producido 
el error 

Con esta subrutina, recogemos in- 
formación del sistema y comproba- 
mos el número de error (línea 210). Si 
éste es igual a 0, es que no ha habido 
error y vuelve el programa a su ejecu- 
ción normal. Si lo hubiese, nos daría 
por pantalla los datos referentes al 
error (número, descripción, pista y 
sector) y nos daría la opción de seguir 
o detener la ejecución del programa. 



Número Pista 


Sector 


Sectores/Pista 


Núm. Registro 


■ — 

1 a la 17 


al 20 


21 


1 al 357 


18 a la 24 


al 80 


19 


358 al 471 


25 a la 30 


al 17 


18 


478 al 579 


31 a la 35 


Oal 16 


17 


586 al 664 
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por R. PARDO 




E ste programa calcula una fuente 
de alimentación estabilizada electró- 
nicamente con zener y un transistor 
regulador serie. Con él se obtienen 
todos los parámetros que se necesi- 
tan (tensión en el secundario del 
transformador, fusible del primario, 
características de los diodos del 
puente rectificador, características 
del condensador de filtro, zener y sus 
componentes auxiliares, y el circuito 
del amplificador de error y del tran- 
sistor serie). 



Los datos que pide el programa 
son: 

UAC (V): tensión del primario del 
transformador (tensión de red). 

UDC (V): tensión de salida del es- 
tabilizador. 

I. SAL (ma): intensidad de salida 
del estabilizador. 

FUSIBLE (L/R): elige fusible lento 
o rápido para el primario del transfor- 
mador. 

F. RED (Hz): frecuencia de red. 



F1 



TR 
SERIE 



DIODOS 




R Z K 



! C2 



°Z 



Fig. 1 



U. zener (V): tensión del diodo ze- 
ner. 

W. zener (mW): potencia máxima 
de disipación del zener (dada por el 
fabricante). 

BETA TR. SERIE: B (HFE) del tran- 
sistor : 



Todos los resultados vienen dados 
en: 

— miliamperios si se trata de in- 
tensidades. 

— voltios si se trata de tensiones. 

— Vatios si se trata de potencias 
de disipación. 

— Microfaradios si se trata de ca- 
pacidades. 

— Kilo-ohmios si se trata de resis- 
tencias. 

En todos los casos es aconsejable 
que, si se intenta llevar a la práctica 
el circuito, se dote al transistor serie 
de un elemento refrigerador (un disi- 
pador de aletas, por ejemplo). 

Las líneas 10-90 presentan el pro- 
grama y en las líneas 100-210 se in- 
troducen los datos con los que se va 
a trabajar. 

En las líneas 220-300 se calculan y 

(pasa a la pág. siguiente) 



BOLETIN DE SUSCRIPCIÓN - club co 



ore 



NOMBRE 

DIRECCIÓN 
POBLACIÓN 
TELÉF 







MARCA Y MODELO DEL ORDENADOR 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripción con el n.° 6 



(Enviar a la dirección del dorso) 



DESEO SUSCRIBIRME A "CLUB COM- 

EDAD MODORE" POR UN AÑO AL PRECIO 

DE 1.980 PTAS.. QUE PAGARÉ CON- 

..) PROVINCIA TRA REEMBOLSO AL RECIBIR EL NÚ- 

MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
Firma, TORNO A ELLA Y QUE PUEDEN SER: 

COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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10 rem al imstitacloti 

20 rem r . Pardo 

30 rem cluib commodore 

40 rem 16. 10. 1992 

30 rem 

60 rem 

70 r»m 

00 rem 

90 Pok*36869, Peek (36969)+2 
100 Prlrt'WUENTE DEC HL I MECHTFIC I OH SI 
Prnit: lnPu.t"UacCV>";uil 
P r 1 nt : inp u.t ■■ Udc (V>"JU2 
Primt = iTiPut" Isal (mR) " ; 1 l 
Print : Print"FuLslble<L/R> " 
seta* : i r a* = " 1 " then 1=3: soto 1 80 
ifaí-'-r'-thenl-lB : 9otol80 
9otol3B 

Prlnt = inPuf'F . red(Hz)";f 
Print : inpuflj. zener<V)";uz 
P |~ i nt : i nP u.t " W . = ener •: mkl ■> •• J 
Print: iflPuf'Eet* tr. ser i e " .: bt 



110 

120 
130 
140 
130 
160 
1TB 
180 
190 
200 
210 
220 
230 
240 
2S0 
263 
2T0 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
330 
390 



400 me— uu — K<ur*40>/'100) 

410 PrinfíBCRLCULO CONDENSADOR " 

420 Prlnt :prlfit"Cl="c"uF" 

430 Pri nt :pri nt " Uc 1 = " u.c "Volts" 

440 9O£Ub£40 

430 r r, , 

460 iz=wz/uz = rl«=íui u2^/iz: 

4T0 i«Ji-= C U-i U2 )*iz: 1 b<= 11/bt: i 4=2* 1 1> 

480 Uil = i4*.j2: ifU)l>-uztheTiPr-irit , '!»^L 2 
F? DISIPA DECMR- fia "WS I FHDñ POTENCIR! 

Oto670 

490 r n= C u.i u.2 ;>^ib:cl = < 3*t > ^r 1 : -_ 

300 print" ÍBCRLCULO ESTflB ILI ZflDOR " 

310 print:print"Rz«"rl"kOhm£ 

320 Print :print"Wrz="ur"mW" 

330 Prl-nt :prlnt"C2-"cs"uiF" 

340 Print:pri-nt."Uc2="uic"Volts 

330 Pri nt : Print" Re» " r n " k Ohms " 

560 9osu.b640 



5T0 print' 



580 
390 



u.e—u.2^ . 9 - f < < l * < u. 1 ,-"u.e )>/il)*l 000 

Pritlt"»FUSIELE PR I MAR I O " 

Print : Priint" If="f£"mfl" 

9osub640 

rem 

Print" WTENSION SECUNDARIO 
Print : Prifit"Us-"ue"Volts" 
9osub640 
r • r, 

rm=u.2^"i 1 = i m= i 1^2 
utr"ue*sq r<2> 

Print" MCflRACTER I ST I CF1S DIODOS" 

Print ■■ print" If~~" lm"mA" 

Print : Print"Ur="u.r"Volts" 

Qosub640 

l=-2*f 

t— 1 ^ 1 : cr = C 3*t i ^rm : c<cr«2000 



* i nt : p r i nt ' 

"- i nt : p r i nt ' 
€00 Print: print ' 
610 9etbí: lfb*= 
620 



il — Repetición datos 



2- Huevo Proyecto 

3— Fin de Proyecto 
F*!,!. 1 se? 1,2 o 3 
"then610 

k=valCb*> : onk 9oto240 , 1 00 ,630 
630 p ok e36869 , P eek í 36869 5—2 : print" 
640 Print : Print "Pulse» una tecla 
ts* = ifs*=" "then650 



'Tiene 
■ 1— Tr. 



630 
660 

670 Print : Priint* 

680 Print : print ■' 
as. ele'.yada" 

690 Print : Print"2~2ene 

T00 Print : Print "Pu 1 se 

T10 eetl* : if 1 "tP-ien740 

720 if l*="2"the;n7S0 

730 9oto710 

740 Pr inf'M" : i np u.t " Beta " : bt > 9oto460 

750 Print : " W" : inPu.t" W. zener(mU>";u! 



dos opciones" 
se-rie de beta 



mas p ótente 



presentan los datos del fusible secun- 
dario del transformador. Las caracte- 
rísticas de los diodos se calculan en 
las líneas 310-370, el condensador de 
filtro en las líneas 380-440 y el resto 
del estabilizador en las líneas 450- 
560. Las líneas 570-630 y las 640- 
660 son unas rutinas para finalizar el 
programa en el primer caso y para se- 
guir con la pantalla siguiente en el 
segundo caso. Las líneas 670-730 sólo 
actúan en el caso de que la potencia 
del zener, que ha sido introducida, 
sea igual o menor que la que ha cal- 
culado el programa, sugiriendo dos 
soluciones: 

— elevar la beta del transistor se- 
rie. 

— elevar la potencia de disipación 
del zener. 



FÓRMULAS UTILIZADAS 

Ue = Us/.9 

lf=(1*(Ui/Ue)) li 

T=1/f 

Rc = Us/ls 

lm = ls/2 

C = 3*T/Rc 

Uinv = Ue*SQR(2) 

Rz = (Ur-Uj)/l2 

lb = ls/[beta] 

Rc = (Ur-Uj)/lb 



EJEMPLO DE CALCULO 

DATOS: 

Uac(V) = 220 
Udc(V) = 12 
lsal.(mA) = 500 



Fusible(L/R): L 
Frec. red(Hz) = 50 
U Zener (V) = 12 
W Zener (mW) = 1000 
[beta] = 20 

RESULTADOS: 

Fusible[lf] = 1 65 mA 

Tensión secundario (Us) = 13.333333 V 

Características diodos: 

lf=250mA 

Ur=18.8561808 V 

C1 =2500 microF. 

Uc1 =26.3986532 V 

Rz=. 0822741 701 Kohmios 

Wr2 = 57 1.348404 mW 

02 = 729.268979 microF 

Uc2 = 26.3986532 V 

Re = .274247234 Kohmios ■ 




club 
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BANCO DE PRUEBAS 



el cartucho 
de ajedrez del 



VIC-20 



(i) 



por PERE MASATS 



En este número iniciamos una sección que dedicaremos 
a los diferentes accesorios y programas para los ordenado- 
res personales COMMODORE. En ella iremos dando los 
detalles más o menos técnicos en la medida en que sean 
de interés para nuestros lectores y explicaremos su funcio- 
namiento. Para empezar, hoy veremos el cartucho ref. 1919 
SARGON II CHESS (AJEDREZ). 

Éste es, sin ninguna duda, el juego más sofisticado y 
«serio» para el VIC-20. Cuando se da tensión al VIC, des- 
pués de insertar el cartucho, aparece en pantalla la presen- 
tación del juego. Lo primero que debe hacerse es centrar 
la imagen utilizando las teclas de control de cursor, pudién- 
dose realizar algunas adaptaciones: 1. En algunos televiso- 
res la imagen puede presentar cierta vibración. Para elimi- 
narla hay que pulsar simultáneamente las teclas SHIFT y F7. 
(En los televisores normales, el pulsar estas teclas puede 
producir, a su vez, vibraciones.) 2. Se pueden cambiar los 
colores del juego pulsando F3 y el color del borde con F5. 

Para empezar el juego, pulsar F1 y, para terminarlo, 
RUN/STOP y RESTORE. Al pulsar F1 aparece en la pantalla 
el mensaje: GAME OR SETUP (G,S): al que se debe respon- 
der con una G o una S dependiendo del tipo de juego que 
queramos disfrutar. Si pulsamos G empezamos un nuevo 
juego y el VIC se encarga de situar las piezas en la posición 
inicial; si pulsamos S tenemos la posibilidad de empezar 
a jugar a partir de una situación dada en el tablero que nos- 
otros podemos definir. (Los jugadores de ajedrez expertos 
prefieren jugar solamente la última parte de una partida que 
suele ser la más emocionante.) 

Si se empieza una partida, el VIC preguntará: YOUR 
COLOR (B,W): a lo que debe responderse con la inicial (en 
inglés) del color con el que se quiera jugar, o sea, B si que- 
remos jugar con las negras (BLACK) o W si lo queremos 
hacerlo con las blancas (WHITE). Una vez dado este paso, 
el VIC preguntará por el nivel de dificultad del juego: LEVEL 
OF PLAY (0-6): Conforme va subiendo el nivel va creciendo 
el tiempo de respuesta del ordenador y su «inteligencia». 
El número de nivel (LEVEL en inglés) representa la cantidad 
de semi-movimientos futuros del operador que el ordenador 
tiene en cuenta antes de decidir su jugada. Una vez realiza- 
das estas operaciones, empieza el juego propiamente di- 
cho, distinguiéndose en la pantalla tres partes: arriba y a la 
izquierda, se sitúa el tablero de ajedrez propiamente dicho, 
y, en sus bordes, aparecen las letras y los números que nos 
permitirán realizar los movimientos; en la parte superior 
derecha, se van registrando los cinco últimos movimientos 
realizados en notación de ajedrez estándard; en la parte 
baja de la pantalla aparecen los mensajes del juego. 

(continuará) 
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COLABORACIONES 



simulación física 
del choque elástico 
juego de billar 



A David Cervigón Fernández le conocimos en Madrid durante la última 
edición de SIMO en noviembre pasado. Como habíamos proferido es- 
tentóreas voces (desde CLUB COMMODORE y otros lugares), claman- 
do por las aplicaciones educativas del VIC, un compañero de Madrid 
nos puso en contacto (¡gracias!) con el Instituto Experimental de Ba- 
chillerato "Cardenal Herrera Oria" que obtuvo cinco de los diez pre- 
mios del Torneo Escolar de Programación 82. El trabajo que presenta- 
mos aquí ganó el tercer premio de dicho concurso. ¡Felicitaciones y 
gracias por el artículo! 



E 1 fenómeno del choque o colisión 
se produce cuando dos partículas o 
sistemas de partículas se aproximan 
entre sí alterando su movimiento y 
produciendo un intercambio en su 
cantidad de movimiento (P) y energía 
(T). 



1) DESCRIPCIÓN DEL PROBLEMA 

Nuestro estudio se circunscribe al 
caso en que realmente existe contac- 
to físico entre las partículas (choque 
de dos bolas de billar) y en donde se 
produce una dispersión, es decir, las 
partículas resultantes del fenómeno 
del choque son las mismas que las 
iniciales. La colisión se producirá en 
una única dirección. Será completa- 
mente elástica, frontal, y respetará 
las leyes físicas de la reflexión. 

El volumen de las bolas será el 
mismo no siendo así su masa, debido 
a que el jugador podrá variarlas cuan- 
do lo desee. Asimismo podrá variar la 
velocidad inicial de la bola y, estre- 
chamente ligado, el espacio total que 
deberá recorrer. Todas estas magni- 
tudes predeterminarán los resultados 
del choque, fenómeno producido por 
el sistema de ecuaciones siguiente: 

(1) : M1*V1 + M2*V2 = M1*V1' + M2 
*V2' 

(2) : 1/2MrV1 A 2 + 1/2M2*V2"2 = 1/ 
2MrV1' A 2+1/2M2 + V2' /l 2 



Donde la ecuación (1) es el princi- 
pio de conservación de la cantidad de 
movimiento (P), y la ecuación (2) es 
el de conservación de la energía ciné- 
tica (T). Y V1 y V2 son — respectiva- 
mente — las velocidades de la bola 1 
y de la bola 2 antes del choque y V1', 
V2' después del choque. 

Las masas M1 y M2 se mantendrán 
constantes en todo momento. El es- 
tado físico de la bola 2 (bola amarilla) 
antes del choque es el reposo (V = 0) 
y, por limitaciones del ordenador, 
tras la colisión desaparecerá. Por lo 
tanto, el estudio científico se restrin- 
ge al movimiento de una sola bola 
(bola roja), la cual partirá tras el cho- 
que con una velocidad V1' igual a: 

V1' = ((M1-M2rV1)/(M1+M2) 



2) DESARROLLO DEL TRABAJO 

Atendiendo a los medios materia- 
les utilizados, el programa ha sido 
realizado en dos fases: 

La primera, en el centro de ense- 
ñanza antes citado, con un PET 2001 
(COMMODORE) sin ningún tipo de 
periféricos. Y la segunda, con un or- 
denador VIC-20 (COMMODORE) pro- 
pio. En este caso se ha utilizado un 
cartucho de ampliación de memoria 
16 KB y una impresora COMMODORE 
que han sido proporcionados, desinte- 
resadamente, por la casa de micro- 
sistemas ACCORD SOFT. 



por 

DAVID CERVIGÓN FERNÁNDEZ 

I.N.B. "Cardenal Herrera Oria" 
COU-A 



He consultado los manuales de am- 
bas máquinas junto con revistas espe- 
cializadas españolas (EL ORDENADOR 
PERSONAL), de aparición muy recien- 
te, y extranjeras (YOUR COMPUTER, 
publicación inglesa) para resolver los 
problemas de programación; y el libro 
«FÍSICA COU», autores E. Lowy y 
otros, para resolver los problemas de 
simulación científica. Debo destacar, 
por último, la gran ayuda prestada en 
ambos campos por profesores de los 
seminarios de Matemáticas y Física 
del Instituto «Cardenal Herrera Oria», 
que han hecho posible, en gran medi- 
da, la presentación de este trabajo. 



3) EXPLICACIÓN DEL PROGRAMA 

Para comprender la estructura del 
programa mostramos a continuación 
un organigrama que, a grandes rasgos, 
pretende ofrecer una idea clara y glo- 
bal de lo que es el programa. 

La partida en sí es una subrutina 
que se efectúa para cada jugador tan- 
tas veces como sea necesario. Está 
formada por varias partes que anali- 
zan por separado cada una de las si- 
tuaciones que se van presentando. El 
jugador puede mover el taco en ocho 
direcciones distintas y jugará con la 
bola roja. El impulso de ésta, que se 
consigue pulsando la tecla G, tiene 
cinco grados; cuanto más separado es- 
té el taco de la bola, mayor velocidad 
inicial le imprimirá y, por lo tanto, ma- 
yor espacio recorrerá. El choque, bien 
con una banda o con otra bola, dece- 
lerará a la bola según las condiciones 
existentes. También cada espacio que 
recorra sufrirá una deceleración, aun- 
que ésta será mínima. 
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La velocidad de la bola se consigue 
mediante bucles retardadores situa- 
dos en cada uno de los tres tipos de 
movimiento (vertical, horizontal y obli- 
cuo). 

Al principio del juego, las bolas 
siempre saldrán en una determinada 
posición pero, una vez borradas de la 
pantalla debido a la colisión con la bo- 
la roja, serán situadas aleatoriamente 
en la próxima jugada. Todo esto, el 
movimiento del taco, los choques, etc., 
llevan aparejados ciertos efectos es- 
peciales, como son diferentes colores 
y sonidos para cada caso, consiguien- 
do de esta manera u 
dad del juego. 



4) PRESENTACIÓN 

En primer lugar, el ordenador pre- 
guntará si se desea conocer las reglas 
del juego. En caso afirmativo, las ¡m- 







Fig. 1 



(continúa en la pág. 13) 
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II PRINT"ÍOa»fc. SIMULACION FISICR 



: PRIN 



DEL CHOQUE ELRSTICO 



m m 



20 
21 

22 
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m m m m ss ■' 
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POR " 
CERVIOON FEDZ. 



200 : POKE3687É . O 



: POK 



12 PRINT' 

1 3 PR I NT ' 

14 PRINT" 

15 PRINT" 

16 PRINT" 
IT PRINT" 
1S PRINT" 
19 PRINT" 

PRiNT":«nm 

PRINT ■■jo DRV ID 
FORLP=1TO190 

25 POKE36876 , I NT (RNB(TI1*1 28 >*12S 

26 FORPL»lTOin 

27 HEXTPL 
23 NEXTLP 
30 POKE36876-S 

35 PPIHT"JíriESER VER LRS REGLP3?n" 
40 GETH* : IFHt=" "THEN40 
45 IFNt="H"THENPOKE368 
: GÜTO20PR 

5© IFHt<>"H" nHEH*<> " S " THEN40 
55 POKE36376 , 220 : PGKE36876, 
1000 REM REGLRS DEL JUEGO 
1010 PRINT" r^- REGLAS" 

1020 PRINT" n " 

1025 POKE36876.. 1 35 : FORT= 1 TO500 - 
E36S7 6 , 

1030 PRINT" 1_B FIHRLIDRD DEL JUEGO" 

1035 PQKE36876 .. 147: FORT= 1 TO500 = ; |FXTT : POK 

E36S76, 

1040 PRINT "ES HRCER DESAPARECER 

1045 PGKE36876 ■ 153 : FORT=1TO500 : HEXTT : POK 
E36876 . 

105© PRI NT "LRS BOLAS AMSRILLfiS. 

1 055 POKE36976, 163 : FORT-lTOteee = NEXTT ¡ PO 

KE36376 -. 

1060 PRINT" PRRP MOVER EL TRCO 

1065 POKE36876, 175 : FORT=1TO300 : NEXTT : POK 
E36876 

1070 PRINT"T-RRRIEñ, B-ABA JO , F-IZO" 

1 075 POKE36876 , 1 33 : FORT= 1 TO500 : NEXTT : POK 

E36876 .■ 

1 0S0 PRI NT " H — DCHñ . N— R— V— V— OBL I CIJO " 

1 083 POKE36876, 191 : FORT— 1 TO500 : NEXTT POK 

E36876 , 

1090 PRI NT "O— IMPULSO- HRX5ESPBCIOS" 

1 095 POKE36S76 1 95 : FORT= 1 TO 1 500 = NEXTT : PO 

KE36876 , 

1100 PRINT" UV . JUEGA CON LR BOLA " 

1 1 05 POKE36876. 201 : FORT=1TO500 : NEXTT : POK 

E3S876 -. 

1110 PRIHT"ROJR. DESEñ VARIAR LAS " 
1115 POKE36876, 207 • FORT=1TO500 : NEXTT : F 



I. 1 20 
L 125 
E36S 
1 1 23 
L 1 30 
I. 1 40 

. : G> 



i 300 
MOS 
13 10 
1315 

1 320 
1350 
*3ñ=* 

20 1 
2020 
2030 
205S 
2060 
HT 

2070 
R I NT 
2088 

2035 
2090 

21 0© 
2110 

2 120 
2 1 30 
2 1 40 
2 1 50 
40 

2 1 55 
2 160 
2 170 
0000 
2 175 
2 1 76 
2 177 
2 1 30 
2 135 
2190 
RRA^I 



PRI NT "CONDICIONES FISICAS 

POKE36876, 209 : FORT=1TO500 : NEXTT : POK 

•G, 

PRI NT "DEL JUEGO <S N> 2 m" 
GETHÍ : IFHÍ=" "THEN1 130 

IFHÍ="N" THEHPOKE36876 .. 250 : POKE36876 

/■TO2000 

I FKi&O " N " RHDHÍO ■■ S " THEN 1130 
POKE36876, 250 • POKE36S76 .. 

REM******************************** 

REM FUNDAMENTO FISICO 

RR I NT " rT«**s I MIJLRC ION F I S I Cfl*** " 
PRINT" sa BATOS" : PRINT : PRINT 

PRINT"25GGP- MA3R STANDAR DE " 
PRINT"LRS BOLAS DE BILLAR. " : PRINT 
PRINT" — BOLA ROJA : " 

I HPUT " ÍM«WTJ^«iíDSE3l>írwlsTJÍ3!riASR EN GRAMOS " 
■RINT : PRINT 
I FM 1 <=0THEN 1 270 

POKE36876, 250 s POKE36876, 

PRI NT " — BOLRS AMARILLAS : " :PRINT 

INPUT"MKB«*iS3!!rjsn!ti!TJS«Cara EN GR A 

■ : M2 : PRINT 
IFM2<=0THEN1300 

POKF36876, 250 : POKE36876, 

PRINT" OK " : FORT- 1 TO 1 500 : NEXTT 

REM******************************** 

REM PROLOGO DE LA PARTI DR 
K=4206 : W=62 

REM SITUACION INICIALDE LRS BOLAS 
BR-4356 : B 1=4293 : 82-4386 
REM DATOS PARA EL JUEGO 

PRTNTTV**» BILLAR ESPAÑOL ***■■: PRI 
INPUT" MMBJHUMERO DE JUGADORES" .: J : P 
I F J<=0THEN2070 

POKE36S76-- 220 : POKE36876. 

PRI NT "LA PARTIDA ACABARA * " : PR I NT 

PRINT"— TIEMPO (1)" PRINT 

PRINT"— N. DE CARAMBOLAS (2)" ¡PRINT 
PRINT" — AMBOS A LA VEZ (3)" PRINT 
RRINT"»I»*I:S3¡ TECLEE 1.2 O 3 ■" PRINT 
GETA* : IFA*=" "THEN2140 

I FRÍO " 1 " RNDRÍO " 2 " AND A*<> " 3 " THEN2 1 

POKE36876, 250 ¡ POKE36876, 
I FAt= " 2 " THEN2 1 90 

i nrijt " nomsoam 

> " T* : PRINT 
LO-VALÍTÍÍ' 
I FLO<=0THEN2 1 70 

POKE36S76 . 250 : POKE36876, 
IFflí=" 1 "THEN2200 
POKE36876. 250 : POK 



INPUT" 
BOLAS " r PR I NT 



3URNTRS C 



(continúa en la pág. siguiente) 
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I FC<=eTHFM2 1 90 
2 1 96 F-OKE3S876 , 250 : POKE36876 , 
2200 PRINT"OK" 

£2 10 REM DIMENSION DE LR NUTRIZ DE LOS J 

IjnRriORES 

2230 D I NC •: 2 . J !J 

2230 FORJU»lTOJ 

2248 R Tl.l , 1 = JU 

2250 NEXT.JU 

2260 FORT=1TO1000 : NEKTT : TI*="000000" 
2270 PRINT"!*^****** BILLAR ******" 

2230 GOSUD7000 
2300 REM JUEGO 
23 1 FORJU= 1 TOJ 

2320 PRIHT">SMB!CSra»Sl!n!TJírBOOT^ 

«5 JUGADOR " i JU ; " 9B" : CA— : CO-8 

2330 F> R T NT " I^ÜKte*** CARRNBOLRS= ";A<JU,2>J 
"*5ií**" : GOSUB3000 
2340 PRINT"*' 

2350 K=4206 : U=62 : V = : R = - E = : S = : V = : X™0 

: T: = 

23S0 T =0 : B=0 : M = : Dn=0 : DR=0 : CO=0 

2370 IFPEEKfEl > OS 1 flNDPEEK < B2 > —8 1 THEN008 

lj"?4000 : GOTO2490 

2375 I FPEEK C B2 > OBI ANDPEEK CE 1 5 =8 1 THENGOS 
MB4g! 1 P = GOTO2490 

23eS T FPEEK < B i > OS 1 RNrPEEK í B2 > OS 1 THENGO 

Sl.mi0?P : OOSUB4O10 : GOTO2400 

2390 GOTO2490 

2400 REM PUNTOS 

24 1.0 CP=CR*1 : RCJIJj 2>=OR 

2420 PRTi IT '• T*?*.«Mr«¡. •>* C.PRRMBOLRS=" ; R< JU, 2> ; 

1 " ^ ■ a 

2430 REM EPILOGO DE LR PARTI DR 
2440 IFRt-"2"THEN2470 

• • • I ! :GOTO2510 

24?í -^•p*=" i "THEN2330 

±-z1-ri--,T= T H 11 : G0T025 1 
2430 GOTO2330 
2430 NEXTJU 
2T500 OOTQ2290 

25Í05? REr-'W**^****** ********** ************ 

2f5 1 REM GRNRD OR 

2520 M«=-tt-A< I ,2J L«RX-B< 1 > 1 > = POKEB 1 ,81 : PO 
KEB2 , B 5 

253!? FORJU=2TOJ 

2340 IFRfJU, 2)>MRXTHENMRX=RCJU, 2> 1 LMRX-R 

< JU , 1 ~> 

2550 NEXTJU 

2560 pri nt ■■ 9akj0oxnnW9ai»nonNra]OR ■ jugador" 

i LMRX : PRI NT 

2570 PR I NT " WCON " i MRX J " CARAMBOLAS " ■ POR 
T=1TO5000 : NEXTT 

2575 REM******************************** 

*** 

2580 REM PIN 

2530 pr i nt " aiJH'&MtMAvMiWBmmanMimininMmJxrn^'SELFt 

SEGUIR JUGANDO? " 

2595 GETM* : IFM*=" "THEN2595 

2620 IFM*="S"THENRUN 

2630 I FM*= " N " THENEND 

2640 I FM*<> " S " ANDM*» " N " THEN2595 

2650 END 

3000 REM******************************** 

*** 

3005 REM SUBRUTINfl: JUEGO 

30 10 REM REPRESENTACION ORAF I CA : BOLAS V 

TRCO 
3015 
30 16 



3200 REM PROPIEDADES DEL MOVIMIENTO 

3205 POKEB 1 +33792 , 7 : POKEB 1 ,81 : POKEB2+337 
92, 7 : POKEB2 , S 1 

32 10 F0RV=1T05 

3220 I FK=ER-23*VTHENGOSUB5500 : G0T038S5 

3230 IFK=BR-2 1 ÍVTHENGOSUB5500 : GOTO3805 

3240 I FK=BR-22*VTHENGOSIJB55e3 : GOTO3S30 

3250 I FK=BR- 1 * VTHENGOSUB5500 : GOTO3430 

3260 I FK=BR+ 1 #VTHENGOSUB5500 : GOTG34 1 



G0T03825 
OOTO3610 




-O ■ POKE36S76 , 23 



I PB 1 =BRTHENGOSUB4000 
I FB2=BRTHENGGSUB4B 1 
3020 POKEBR+33792, 2 : POKEB 1 +33792 , 7 : POKEB 
2+33792 , 7 : POKEK , W : POKEBR ,81: POKEB 1,01: PO 
KEB2, SI 

3035 FORT=1TO750 : NEXTT 
3040 POKEK , 32 • K=K + 2 
3045 P=PEEK(K) 

3050 IFP=108ORP=124ORP=1 26DRP- 1 1BORP-123 
ORP=ll 70RP= 12 1 ORP— 1 20THENK=M 

3085 POKE36876 ,220: POKEM , 32 = POKEK+33792 , 

1 : POKEK, U : PGKE36876, 

3090 GETB* : IFBÍ=" "THEN3090 

IFBt="R»THENK"K-23 : W=60 : M-K+23 
IPE*="T"THENK=K-22 I W=62 : M-K+22 
IFBt="V»THENK=K-21 : W-62 : M-K+21 
IFBÍ="F" THENK=K— 1 : W=S0 ! M—K+ 1 
IFB*-"H"THENK=K+1 : W = 62 : M-K— 1 



3100 
3110 
3 120 
3 1 30 
3 1 40 
3 150 
3 1 60 
3 1 70 
31S0 
319C 
1+33792, 
GOTO3045 

3 1 95 REM******************************** 
*** 



IFB*' 
IFB*=' 
I FBt- 

IFBÍ="G" THENPOKEK , 32 : GOTO3200 
POKEBR , S 1 : POKEB 1,81: POKEB2 ,81 : POKEB 
: POKEB2+33792 , 7 : POKEBR+33792 , 2 : 



' V"THENK=K+21 
'B"THENK=K+22 
' N ■■ THENK-K+23 



: lg=60 : M-K-21 
: U"60 : M-K-22 
: Ul = 62 : M-K-23 



3265 I FK=BR+2 1 *VTNENGOSUB5500 : 
3270 IFK=BR+22*VTHENGO3UB5500 : 
3280 I FK=BR+23*VTHENGOSUB5500 : G0T03845 
3290 NEXTV 
3300 GOTO3045 

33 10 REM******************************** 
*** 

3400 REM MOV. HORIZONTAL 

34 10 REM DIRECCION IZQUIERDA 

3420 I FPEEK < BR- 1 >= 1 1 8THEN3445 

3425 U=-l : GOTO3450 

3430 REM DIRECCION DERECHA 

3435 I FPEEK CBR+1 5 = 1 17THEH3425 

3445 IJ=1 

3450 X— : D=0 

3460 POKEBR+D , 32 : POKEBR+D+33732 , 
3470 D=D+IJ : P=PEEK< BR+D+ 1 > : E=PEEK<BR+D — 1 > 
34S0 IFP«1 170RE— 1 18THENU— — U : POKE36876, 22 
: V=V + 4 : X=X + 4 

3490 I FPEEK <C BR + D > =8 1 THENPOKEBR+D , 32 : BC=B 
R+D : GOSUB6O00 : POKEBR+D+33792 , : GOTO3480 
3500 X— X+l V«V+1 i POKEBR+D+33792, 2 : POKEBR 
+ D, 81 

3510 FORT = 1 TO V : NEXTT : POKE36876 , 

3520 IFX>=STHEN3550 

3530 GOTO3460 

3550 BR=BR+D : RETURN 

3535 REM******************************** 
*** 

3600 REM MOV. VERTICAL 
36 10 REM DIRECCION ARR 1 
3620 I FPEEK < BR — 22 > = 1 2 1 T 
3625 Q=— 1 : GOTO3650 
3630 REM DIRECCION 
3640 IFPEEKCBR+22?= 
3643 Q=l 
3650 X=0 ¡ O=0 

3660 POKEBR+22*G , 32 : FOKEBR+22SO+33792 , 
3670 0=0+0 : P-PEEKÍBR+22*G+22) : E=PEEK<BR+ 
22*0— 22 > 

36S0 IFP=120ORE— 121THENQ= 
: V—V+5 : X = X+8 
3690 IFPEEK < BR+22*0'J =8 lTHENPOKEBR+22*n , 3 
2 : BC=BR+22*0 : GOSIJB6030 : P0KEBR+22*0+33792 
, : GOTO3680 

3700 X-X+l : V-v+1 ■■ P0KEBR+22*0+33792 , 2 : POK 
^ ER+22# O * 81 

3710 FORT-1TOV : NEXTT i POKE36876, 

3720 IFX>=STHEN3750 

3740 GOTO3660 

3730 BR*BR+22*0 - RETURN 

3760 REM******************************** 
*** 

3800 REM MOV. OBLICUO 

3805 REM DIRECCION SUR— OESTE 

3810 I FPEEK (BR+22>=120THEN3850 

38 1 5 I FPEEK <; BR- 1 > = 1 1 8THEN3870 

3820 DA= — 1 : DR=1 : GOTO3890 

3825 REM DIRECCION NORTE-ESTE 

3830 I FPEEKÍ BR-22 ) => 1 2 1 THEN3870 

3835 I FPEEK< BR+ 1 ) - 1 1 7THEN3S50 

3840 DA«1 : DR— 1 : GOTO3890 

3845 REM DIRECCION NORTE— OESTE 

3830 I FPEEKÍ BR-22Í = 1 2 1THEN38 1 

3855 I FPEEK < BR— 1) = 11 8THEN3830 

3860 DR= — 1 : DR=— 1 : GOTO3890 

3865 REM DIRECCION SUR— ESTE 

3870 I FPEEK (BR+22)=120THEN3830 

3873 IFPEEK í BR+ 1 >«1 17THEN3818 

3880 DR=1DR-1 

3890 A=0 : R=0 : X-0 

3900 POKEBR+R+22*R, 32 : POKEBR+R+22ÍR+3379 
2 , 

3910 A- 
R+R+22#R-1 > 
3913 IFP=1 170RE=1 1 8THENDfl= — DA : POKE3S876, 
220 : V=V+3 : X=X+4 

3920 I FPEEK < BR+R+22*R )=8I THENPOKEBR+R+22 
*R, 32 : BC»BR+A+22#R : GOSUB6000 : PniíEBR+P+22 
«R+33792 , 2 : G0T039 1 5 

3925 R»R+DR ■ P=PEEKÍBR+R+22#P+22> : E=PEEK í 
BR+R+22*R-22 > 

3930 I FP= 1 20ORE= 121 THENDR= — DR ' POKE3S87fi , 
230 : V— V+3 : X=X+4 

3935 IFPEEK í BR+R+22*R >=81 THENPOKEBR + R+22 
*R, 32 : BC = BR + A+22*R : GOSUB6030 : POKEBR+H+22 
«R+33792, 2 : GOTO3930 

3940 X=X+1 : V-V+l : POKEBR+R+22ÍR+33792, 2 : P 
OKEBR+A+22*R, 81 

3945 FORTalTOV : NEXTT : POKE36876 . 
3930 IFX>=STHEN3970 
3960 GOTO3900 

3970 BR-BR+R+22*R ■ RETURN 

3380 REM******************************** 
*** 

3990 REM COORDENADAS DE LAS BOLAS 

4000 B1=4208+INTCRND(TI 5*18)+22*INTCRNIK 

T I > * 1 4 > : GOTO4020 

4010 B2=4208+ INTÍ RND CTI )*18) + 22*INTCRND< 
TI MÜ141 

4020 IFB1 =B2ORB1=BRORB2«BRTHEN4000 
4030 RETURN 

5500 REM******************************** 

*** 

55 1 K=420S : W=62 : POKEK , W : POKEBR . 32 
5520 REM VELOCIDAD V ESPACIO 
5530 V=C60XV?-5 
5540 S-50*V-20 
5550 RETURN 



R.+DA : P=PEEKÍBP+R+22#R+ 1 > : E=PEEKÍB 
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6000 rem******************************** 

60 10 rem colision 

6020 IFI11 <=M2THENU=— U : Dñ=-Dfl : GOTO6B30 
6030 I FM 1 <=M2THENQ= — O. - DR=-DR 
6050 VC=tíMl~M2>#V>/ÍMl+M2> 
6055 POKE36S76 . 240 : X»>í+10 

60S0 POKEEC-23+33792,?:POKEEC-23, 126:POK 
EBC+23, 10S : POKEBC+23+33792, 7 

60S5 POKEBC-21 , 124 ■ POKEBC-21+33792 . 7 : POK 
EBC + 21 , 123 : POÍÍEBC+2H-33792, 7" 

6035 KP=50 

6036 IFVC>100THENKP=S000 
SBS8 IFVC»0THEHVB>1 : OOTO6120 
6099 IFVC<0THENVC=-VC 

6 100 VB=KP/VC 

6105 IFVBÍ0THENVB=-VI 

6 110 VB= I NT < VE > 

6 1 20 V-V-t-VB 

6 130 POKEEC-23 , 32 : POKEBC+23 , 32 : POKEBC-2 1 
■ """S2 - P^KEEC+2 1 j 32 

6135 POKEBC-23+33792, O : POKEEC — 21+33792^ 
■ POKEBC+23+33792, : POKEBC+21+33792 • 
8136 I FBCOB 1 flNDCO=OTHENPOKEB 1 +33792 , 7 : P 
OKEB 1,81' CO = 1 

6139 IFBCOB2flNBCO=0THENPOKEB2+33792, 7 • P 

OKEB2 ,31 : CO= 1 

6 140 POKE36876 , - OOSUB7000 : PETURH 
7000 REM MESR 

7010 FORI-4203TO4136STEP-1 : POKEI , 121: POK 
E'I+33792, 1 : NEXT I : POKE4 1 35 .168 

7020 FOR I =4207TO4493STEP22 POKEI, 1 18 ; POK 
El -+33792, 1 : HEXTI : POKE4313, 124 

7030 POR I =45 1 ST04533 : POKEI , 120 : POKEI+337 
92, 1 : HEXTI FOKE4534, 126 

704S FORl=4512T04196STEP-22 : POKEI ,117: po 
KEI+33792, 1 HEXTI POKE4204, 123 
705S PETURH 

RERBV . 



primirá en la pantalla, dando la posibi- 
lidad, mediante una nueva pregunta, 
a que varíe las condiciones físicas en 
que se desarrollará el juego. En caso 
negativo, bien sea a la primera o a la 
segunda cuestión, se imprimirán auto- 
máticamente en pantalla dos pregun- 
tas: la primera hace referencia al nú- 
mero de jugadores que desean parti- 
cipar. En este caso no hay restriccio- 
nes, pudiendo jugar todos aquellos que 
lo deseen. Y la segunda, cuáles van a 
ser los límites de la partida, es decir, 
si la partida finalizará cuando trans- 
curra un cierto tiempo (esta modali- 
dad está dirigida al caso de que sólo 
juegue una persona, a modo de entre- 
namiento), o cuando se cumplan un 
cierto número de carambolas (moda- 
lidad dirigida al caso en que haya nu- 
merosos jugadores). También se pue- 
de elegir las dos modalidades anterio- 
res a la vez. En el segundo caso, el 
jugador ganador será aquel que con- 
siga, el primero, alcanzar el número 
de carambolas preestablecido. Estas 
dos preguntas se deberán responder 
obligatoriamente, ya que son datos 
esenciales para el juego. 

Una vez cumplidos todos estos re- 
quisitos, dará comienzo el juego, en 
la parte superior de la pantalla apa- 
recerá «BILLAR» y una línea debajo el 
puntuador. En el centro de la pantalla 
la mesa de billar con tres bolas, dos 
amarillas y una roja, situadas inicial- 
mente en un lugar fijo, que por su- 



puesto permite lograr hacer una ca- 
rambola. 

En la esquina superior izquierda, 
fuera de la mesa, aparecerá el taco, 
donde tras permanecer unos segun- 
dos, atravesará la mesa. A partir de 
este instante el jugador comenzará su 
partida, moviendo el taco como lo de- 
see, con la única restricción de que 
no podrá sacarlo de la mesa. 

En resumen, en la figura 1 se da la 
situación gráfica antes de que comien- 
ce el juego. 

5) CONCLUSIONES 

El programa, en líneas generales, ha 
sido concebido para que no se pue- 
dan dar situaciones imprevistas cuyos 
desenlaces sean indeterminables, así 
como para que pueda ser utilizado por 
cualquier persona, ya que no se nece- 
sita ningún tipo de conocimientos pre- 
vios de programación ni de manejo de 
ordenadores y su utilización es muy 
simple. 

He intentado, en este programa, sin- 
tetizar el fundamento físico o cientí- 
fico existente en el billar, con sus ca- 
racterísticas de juego como la habili- 
dad, el ingenio, etc., y todo ello en el 
marco de las limitaciones propias del 
ordenador, tales como la rapidez de 
lectura, resolución, etc. Que esta sín- 
tesis se haya logrado o no, lo deberán 
decidir ustedes. m 



eri 



Electrónica 



En sus páginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20: 

— Generación de sonido y pro- 
grama para piano 

— Cálculo de estabilizadores 
con Zener 

— E! Despertador 

— El Quinielista. 

• Se han publicado artículos sobre 
los siguientes temas: 

— Lenguajes de programación. 

— La ampliación de un ordena- 
dor con los periféricos. 

— Qué es y cómo funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado español. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la elección de un ordenador. 

— Los modems. 

— Discos flexibles (floppy disk). 

— Realización de un teclado 
ASCII a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras distintas, más potencia, 
mayor flexibilidad. 

— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública. Sis- 
tema de alarma anti-robo. 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógi- 
cos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— Los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable. 

• Fichas técnicas de microprocesa- 
dores y de micro-ordenadores 

Para números atrasados y para 
suscripción anual (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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►RACIONES 






por ERNESTO MARTÍNEZ 
DE CARVAJAL HEDRICH 



No creemos necesario presentar a ERNESTO dado que 
una colaboración suya se publicó en el número cuatro de 
nuestra Revista. Como se puede apreciar en este artículo 
nuestro autor se las ha arreglado para que un personaje de 
nuestra Revista (por cierto: el malo) aparezca en televi- 
sión, lo cual no deja de ser un honor... ¿no? 



Apreciados conVICtos: 

En mi anterior colaboración os des- 
cribí un programa (misioneros y caní- 
bales) que utilizaba una serie de ca- 
racteres especiales que representa- 
ban los personajes y demás elemen- 
tos del juego. En dicha ocasión no os 
detallé más este apartado por no ser 
la intención del artículo y porque es 
un tema que requiere uno monográfi- 
co. En esta ocasión quisiera introdu- 
ciros a los que no lo estáis, en esta 
faceta apasionante del VIC: la genera- 
ción de caracteres definidos por el 
usuario. 

Una de las innovaciones que pre- 
senta el VIC es la posibilidad de defi- 
nirle caracteres y utilizarlos en pro- 
gramas BASIC. Las aplicaciones de 
esto son diversas. Se puede sustituir 
los caracteres del VIC por aquellos 
propios de una lengua, como el japo- 
nés, el chino o cualquier otro. Se pue- 
de crear una tabla de caracteres elec- 
trónicos, matemáticos, etc. Y se pue- 
den crear las más extrañas criaturas 
de ciencia-ficción. 

En este artículo explico (o al menos 
intento) la manera de generar este tipo 
de caracteres, a la vez que os presen- 
to un programa que podéis utilizar co- 
mo subrutina de otros para realizar 
esta función. Y para ilustrarlo, qué 
mejor que utilizar a nuestra mascota 
BUG que, por una vez, nos ayudará en 
lugar de hacer travesuras. 



Ante todo, el necesario y consabido 
repaso de la teoría: 

Se puede considerar que la pantalla 
del VIC (el recuadro interior que apa- 
rece en la pantalla) está formado por 
puntos elementales. Cada uno de es- 
tos puntos puede estar encendido o 
apagado, entendiéndose por apagado 
el color del fondo de la pantalla (espe- 
cificado en la dirección 36879), y por 
encendido de un determinado color 
(contenido en la dirección 38400). Es- 
tos puntos forman un entramado de 
184 líneas por 176 columnas. El con- 
trolador de video monta la imagen 
línea a línea y punto a punto, por lo 
que ha de conocer el estado, encen- 
dido o apagado, de cada uno de ellos. 
Este estado se podría codificar con 
un BIT (0 = apagado, 1 = encendido), 
lo cual representaría una información 
de 176*184 = 32.384 BITS = 4048 octe- 
tos = 4K, lo cual sería excesivo frente 
a las 5,5 K totales del VIC en su ver- 
sión base. Ha sido necesario buscar 
una solución más económica. Para ello 
se agrupan los puntos elementales en 
rectángulos de ocho líneas por ocho 
columnas, llamados mallas. Estas ma- 
llas se reparten en la pantalla en filas 
y columnas. Es preciso distinguir en- 
tre filas y columnas, que podemos lla- 
mar macroscópicas, de las elementa- 
les. La pantalla está formada por 23 fi- 
las de 22 columnas (macroscópicas). 



puede dibujar dentro de una malla es 
bastante limitada: 2*64 = 256, ya que 
hay 64 puntos (8*8) y cada uno puede 
tener dos estados. 

La forma en que se las ingenia el 
VIC para visualizar caracteres es la 
siguiente: 

En una zona de RAM de número de 
octetos igual al número de mallas 
de la pantalla (506 para el VIC), se 
introduce el código ASCII del carácter 
que ha de visualizar en su correspon- 
diente malla. Si llamamos E a la direc- 
ción de origen de esta zona (7680), la 
dirección en memoria del octeto co- 
rrespondiente a la malla de coordena- 
das XM.YM será: 

Q = E + 22*YM + XM 

Una segunda memoria, en ROM o 
RAM, contiene la descripción corres- 
pondiente a cada código. Esta memo- 
ria se llama generador de caracteres. 
Hay un octeto por cada carácter. Si 
llamamos G al origen de esta memoria 
(32768 en el VIC al encenderlo), en 
G + 8*R + L se encuentra el octeto que 
es la imagen de la línea elemental L, 
necesaria para dibujar el carácter R. 
Los ocho bits de un octeto indican el 
estado de cada uno de los ocho pun- 
tos de una línea dentro de una malla. 
Así, por ejemplo, la forma en que el 
VIC guarda la letra A se muestra en 
la tabla de la página siguiente. 

Se pueden comprobar estos valores 
ejecutando el siguiente programa: 

10 G=32768 : REM dirección inicio 

generador 
20 INPUT " carácter a decodificar";R 
30 FOR L = OTO 7 
40 PRINT PEEK(G + 8*R + L) 
50 NEXT L 
60 PRINT:PRINT 
70 GOTO 20 

Esta segunda memoria se puede 
trasladar a una zona RAM y, lo que es 
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mejor, modificarla a nuestra voluntad 
e instruir al VIC para que utilice esta 
nueva tabla para la generación de los 
caracteres. 

Y llegados a este punto es el mo- 
mento de empezar con nuestro ami- 
gúete. Evidentemente no vamos a in- 
tentar dibujarlo utilizando un solo ca- 
rácter, ya que esto nos daría una re- 
solución muy pobre (64 puntos]. La 
idea es trocear a BUG en unidades re- 
presentables en una malla, y después 
unirlas en la pantalla como si fuese un 
puzzle. Para ello dibujemos a BUG so- 
bre un papel milimetrado (el dibujo 
escogido es el que aparece en el nú- 
mero uno de nuestra Revista para la 
presentación de la mascota), de forma 




FILA 


MALLA 


DIRECCIÓN 


ESTADO BITS 


VALOR OCTETO 


1 




32776 


00011000 


2"4+2"3 =24 


2 


ít ir 


32777 


00100100 


2*5+2*2 = 36 


3 


ft A 


32778 


01000010 


2^6 + 2" 1 = 66 


4 


# * ft 6 * 


32779 


01111110 


2"6 + 2 A 5+2*4 + 2"3 










+ 2*2 + 2*1 - 126 


5 


* # 


32780 


01000010 


2*6 + 2 "1 = 66 


6 




32781 


01000010 


2 "6 + 2*1 = 66 


7 




32782 


01000010 


2*6 + 2-1 = 66 


8 




32782 


00000000 


= 



que la parte izquierda y superior coin- 
cida con el inicio de un centímetro. 
A continuación dividamos el dibujo en 
cuadrados de ocho milímetros de lado. 
Cada cuadrado de éstos representa 
una malla o un carácter, y cada uno de 
los milímetros cuadrados interiores un 
bit. El resto es fácil aunque laborioso: 
hay que calcular el valor de cada uno 
de los ocho octetos de cada carácter 
e introducirlos en el lugar que quere- 
mos modificar. 



DESCRIPCIÓN DEL 

La línea 20 del programa inicializa 
los valores de las variables: 

G1 = Inicio generador de caracte- 
res en ROM. 



G2 = Inicio generador de caracte- 
res en RAM (puede tener otros). 

La línea 60 traslada la tabla de ca- 
racteres de la ROM a la RAM. 

Las líneas 1000-1124 son los valores 
de cada uno de los ocho octetos de ca- 
da carácter. El primer valor de cada 
data es el código (según tabla 1 de 
pokes) del carácter a modificar. 

La línea 1510 realiza la modificación 
de los caracteres según el valor de 
los datas. 

La línea 1600 protege la tabla de 
caracteres en RAM. 

La línea 2001 modifica el orden de 
la tabla degeneración de caracteres. 
(Para restituir el valor original pulsar 
RUN/STOP y restore.) 

Las líneas 2005-2070 pintan el dibujo 
en la pantalla. mm 



1 PR IHT POKE36879, 25 

18 REM GEHCHRR 

20 Gl=32rS8:G2-71£8:IP=?68e 

68 FOR I = 0TO5 1 2 : K=PEEK CG1+I > : POKE CG2+ I } . 
: HEXTI 

6,8,8,3,8,0,3, 1 , 1 
1,0,0,0,0,0,0, 128, 192 
2,0,0,0,0,0,0,0,0 

3, 28, 15.7. 15, 63, 255, 255, 255 



1000 
1002 
1 884 
1306 
1038 
5 

1010 
10 12 
10 14 
IBIS 
1318 



IiRTH 
DRTR 

DñTñ 

DF1TR 
DRTR 

DfiTfl 
DfiTH 
DFITR 
DFlTfi 
DRTR 



1020 BRTñ 
• 248 

1822 DRTR 
1824 DRTR 
, 240 
1026 
27 
1 028 
, 255 
1030 
1032 
, 255 
1034 
24 
1 036 
1 038 



4 , 3,287, 255, 254 , 255 , 255 , 255 , 25 

5,0,1 92 ,0,0, 1 23 , 1 92 ,224,240 
6,0,0,0,0,0,0,0,0 
7,8,0,8,3,0,3,8,0 
3,0,8,8,3,3,3,0,0 

9,61,63,31,63,31, 255 , 255 ,127" 
18,224, 224 ,240,240,224, 224 ,224 

11,3,7-, 15,63, 15, : 
12, 255, 255, 255, : 



.2 , 248 , 24 1 



DRTR 13,255,25? 



. 65 , 7-3 , 2 



DRTR 14,243,248.254,255,255, 255 



DRTR 
DRTR 



15. 
1 6 . 



0,0. 
124. 



1,1. 

252. 



192, 192. 
249, 255. 



192, 224 

255 , 255 , 255 



DRTR 1~. 



0, 192 , 192 , 224 , 224 , 240 , 240, 2 



■ 30 ,8,0,0,0 
,31, 15,3, 1, : 



DRTR 18,31,127,63, 

DRTR 1 9 , 252 , 255 , 62 

1040 DRTR 20 , 255 , 255 , 255 , 255 , 255 , 255 , 2S5 
, 255 

1042 DRTR 21,249,255,255,255,255,255,255 



. 255 
1 044 
, 255 
1846 
, 255 
1 848 
, 248 
1 050 
1052 
1054 
1 056 
1058 
, 255 
1868 
, 255 
1 062 



DRTR 22, 255, 255, 255, 255, 255, 235, 255 



DRTR 23 



■ 255, 255, 255 



. 255 , 255 , 255 , 255 



DRTR 24, 167, 



207, 255, 255, 



252 , 248 , 240 



DRTR 25 , 255 , 255 , 287 , 1 35 ,0,0,0,0 

DRTR 26 ,248,248,224, 192,8,8,0,0 

DRTR 27,3,8,0,8,8,8,3,0 

DRTR 28,1,2,2,0,8,0,1,1 

DRTR 29,255, 1 27 , 1 27 , 255 , 235 , 255 , 255 

DRTR 38, 255 1235,241, 24S ,252, 253 , 255 



DRTR 31. 



.7,255,255, 255 



1864 

, 255 

1866 

, 224 

1 868 

1070 

1872 

1074 

1876 

1078 

3© 

1080 

1082 

1 884 

1 886 

1088 

1090 

1 092 

1 094 

1096 

1 898 
1 100 
1 1 82 
1 184 
1 106 
1 108 
1110 
1112 
1114 
1116 
1118 
1 1 20 
1 1 22 
1 1 24 
15 10 
ERDK 
1600 
2000 
280 1 
2005 
2810 
2020 
2030 
2035 
2040 
2058 
2860 
2070 
2080 



DRTR 32, 

DRTR 33. 

DRTR 34, 

DRTR 35, 

DRTR 36. 

DRTR 37. 

DRTR 38. 

DRTR 39 



DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 



40 
4 1 

42 
43 
44 
45 
46 
47 
48 



255, 255, 255, 255, 255, 255, 255 

240, 240, 248, 248, 248, 228, 228 

0,0,0,0,8,8,0,0 
0,0,0,0,0,0,0,0 
0,0,8,0,0,0,0,0 
1,3,2,0,0,0,0,0 

127, 127, 127,63,48,32,0,0 
255 , 255 , 255 ,255 ,254, 1 26 , 30 , 

255 , 253 , 255 , 235 , 255 , 63 , 55 , 7 
255 ,255, 255 , 254 ,254,240,0,0 
224, 224 ,224, 96 ,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,7,31,31, 25 ,0,0 
0,8,248, 252 ,254,255, 1 27 , 63 
8,0,8,0,7, 255, 253, 248 
62,62, 126,251, 25 1,247,255, 1 



DRTR 49,7. 
DRTR 50,0. 







DRTR 
DRTR 



51 

52, 



DRTR 53, 
DRTR 54,8 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 




£1 


55 ,0,0 
56 , 224 
57 , 8 



15, 15,59, 123, 127, 1 27 
128, 192, 248, 255, 255, 255 
1,3,7, 255 .. 255 , 255 
224, 240, 248, 254, 254, 250 
0,0,0,8,0,0 
0,0,0,0,0,0 
0,0,0,8,3,0 
8,0,8,0,0,0,0 




58 , 3 , 3 , , , 8 , , , 
59,0,0,0,0,0,0,3, 







60 , 63, , , , , , , 
61,3,3,3,0,3,0,0,3 
62, , , 8 , 3 , , , , 
FORI=8TOS2 : RERDC . PR I NTC F0R.T=8T07 ■ R 
POKEG2+<C*85+J, K : HEXT.J : HEXTI 
POKE 52, 28 POKE 56,28 
PR I NT " nBBa»ISBni!M«*»MI»I" ; 
POKE 36869,255 
K = 63 

POR 1=1 TO 7 
POR -T= 1 TO 9 

IF K>95 THEN K=K-64 
PR IHT CHRÍÍK5; 
NEXT _T 

PRIHT : PRXNT" .: 
NEXT I 

GETRt : I Fñ*= " " THEH2083 



J 
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CLUBS DE USUARIOS 



el primer Club de Usuarios del VIC-20 
en Barcelona ya está en marcha 

Confirmando las noticias anticipadas en ediciones anteriores, ha quedado 
constituido el primer Club de Usuarios del VIC-20 en Barcelona. La primera reu- 
nión se celebró, de acuerdo con el programa previsto, en «Sistema» — Balmes, 
434 — Barcelona, Surgieron diversos proyectos que se espera vayan concretán- 
dose en realidades próximas. Las reuniones del Club se celebrarán los miérco- 
les, de 18 a 20 horas en «Sistema», Balmes, 434 - Teléfono (93) 211 54 40 - Barce- 
lona, a donde pueden dirigirse todos los interesados en las actividades del nuevo 
Club. 



TRUCOS 





CONVERSION EN UHH LINEO 
RERDV . 



por P. MASATS 



10O I FÜTHEHfl= IHTCD/16 > : H* = M I.D# ("81234367 
S9HBCDEF •• .■ 1 -CS— R* 16, 1 > +H* : D=« HOTO 1 «0 
200 D = 0: I FH t> " " THENFORI »1 TOLEH (Hí J : R = RSC 
ÍMIDÍÍHt, t , i 5 >-48 = D-D* U*B*<B>9>*7 : NEXT 

CONVERSION DECIMAL R E I NRR I O 
RERDV . 



10 IHFUTD H*=" " 

1 00 I FDTHEMR= I NT í D. 2 

*2 ■ i ;• * H-r : ri=R : goto i eo 

101 PRINTH* 



Ht=niDíí "01 ' 



Existen serias dudas filosóficas acerca de si un programa puede llamarse así cuan- 
do está compuesto de una sola línea pero, de hecho, la ejecución de la línea 100 del 
siguiente listado nos da en la variable H$ el valor de notación hexadecimal del valor 
existente en la variable D. Del mismo modo, la línea 200 — ella sólita — nos hace la 
conversión contraria. Sólo debe tenerse en cuenta que, antes de ejecutarse la línea 
100, la variable H$ debe estar vacía (H$ = ""). Y esto no es todo: sustituyendo los va- 
lores 16 y conformando adecuadamente la cadena de signos de la línea 100, se puede 
realizar la conversión de decimal a cualquier base. En la parte superior se da un ejemplo 
de conversión decimal-binario donde además se ilustra el manejo del «programa». 
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• Vendo aplicación de facturación con control de representantes, 9 listados, 
6 ficheros, estadísticas, etc., permite copias de seguridad. Configuración: VIC, 
8K, disco e impresora, 40.000 Ptas. Escribir a Jaime Ameller Pons. General 
Mola, 15, 1? B. CALATAYUD (Zaragoza). 

• Vendo equipo CBM 3032 y 3040 (CPU y Floppy). Interesados llamar a Miguel 
al (93) 300 53 21 de BARCELONA. 

• Vendo interfaz y programa para RTTY y CW para el PET a 15 K. Rafael, 
EA3CGK - Avda. Barcelona, 21, A, 4 ? 2?. IGUALADA (Barcelona). 

• Se busca experto en VIC-20 para colaborar en la creación y coordinación de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Telé- 
fono 211 54 40. 

• Vendo cariucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearía contactar con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc.. Razón: Francisco Gutiérrez. Santiago Rusiñol, 12. MA- 
DRID-3. Teléf. (91) 253 13 40. Horas comida y cena. 
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la segunda parte del 
Curso de Introducción 

está a punto 



En estos momentos se está termi- 
nando el trabajo de traducción e im- 
presión de la segunda parte del Curso 
de Introducción al Lenguaje de Progra- 
mación BASIC, por lo que, en breve 
tiempo, se podrá disponer de los pri- 
meros ejemplares. En el próximo nú- 
mero daremos más detalles. 




Así es el VIC-20 

• Lenguaje BASJC extendido. 

• Sistema operativo COMMODORE. 

• 5 K RAM ampliable a 32 K. 

• 16 colores, 4 generadores de sonido. 

• 66 caracteres gráficos. 

• Periféricos disponibles: 

- Cassette. 

- Impresora de agujas. 

- Unidad de disco de 170 K. 

Así hace las cosas el VIC-20 
■ ['.sena i: 
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Con la adquisición de su V!( 0(¡ renlxni adet ií- 
• MANUAL ÜELUSUARIO. 

INTRODUCCION AL. 1.1 NCiUUÍ-. DE 

PROGRAMACION BASIC. 
• Y 17 PROGRAMAS DE 
PRACTICAS 
(en dos cassettes). 
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• Efectúa todo tipo de cálculos 
matemáticos. 

• Realiza funciones docentes. 

• Se encarga de múltiples tareas 

profesionales. 

• Proporciona divertidos momentos de 

ocio. 

• Ayuda a planificar labores domésticas. 
• Hace todas las aplicaciones 
que Vd. imagine. 
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